home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 46 / 64er_Magazin_Sonderheft_46_19xx_Markt__Technik_de_Side_B.d64 / adress x2000 (.txt) next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.8 KB  |  89 lines
  1. 5 printchr$(14):printchr$(8)
  2. 10 input"[147][197]pson (j/n)";d$
  3. 20 p$="[184][184]"
  4. 30 dim a$(100),b$(100),a(100),b(100)
  5. 40 printchr$(147):poke646,5
  6. 50 poke53281,0:poke53280,0
  7. 60 print:printspc(17);"[153][205]enue"
  8. 70 printspc(17);"*****"
  9. 80 print:printspc(12);"[150]1.[211]peichern"
  10. 90 print:print:printspc(12);"2.[204]aden"
  11. 100 print:print:printspc(12);"[152]3.[204]oeschen"
  12. 110 print:print:printspc(12);"[155]4.[211]peicherinhalt zeigen"
  13. 120 print:print:printspc(12);"[154]5.[211]peicherinhalt drucken"
  14. 130 print:print:printspc(12);"[156]6.[208]ostkartenkleber"
  15. 140 print:print:printspc(12);"7.[197]xit to [194]asic"
  16. 150 getu$:ifu$=""then150
  17. 160 a=val(u$)
  18. 170 ifa=1then250
  19. 180 ifa=2then400
  20. 190 ifa=3then820
  21. 200 ifa=4then660
  22. 210 ifa=5then670
  23. 220 ifa=6then680
  24. 230 ifa=7then640
  25. 240 goto40
  26. 250 input"[147][150][214]orname";a$(0)
  27. 260 input"[206]ame";a$(1)
  28. 270 input"[211]trasse";a$(2)
  29. 280 input"[207]rt";a$(3)
  30. 290 input"[151][208]lz";a(0)
  31. 300 input"[129][212]el.";a$(4)
  32. 310 open1,8,2,+a$(1)+" "+left$(a$(0),1)+".,s,w"
  33. 320 print#1,a$(0)
  34. 330 print#1,a$(1)
  35. 340 print#1,a$(2)
  36. 350 print#1,a$(3)
  37. 360 print#1,a$(4)
  38. 370 print#1,a(0)
  39. 380 close1
  40. 390 goto40
  41. 400 input"[147][149][194]itte den [214]ornamen angeben";b$(1)
  42. 410 input"[129][202]etzt den [206]achnamen";b$(0)
  43. 420 ifl=10thenreturn
  44. 430 open1,8,2,+b$(0)+" "+left$(b$(1),1)+".,s,r"
  45. 440 input#1,a$(0)
  46. 450 input#1,a$(1)
  47. 460 input#1,a$(2)
  48. 470 input#1,a$(3)
  49. 480 input#1,a$(4)
  50. 490 input#1,a(0)
  51. 500 close1
  52. 510 print"[147]"
  53. 520 ify=2thenprint"[147][211]peicherinhalt wird gedruckt":open4,4:cmd4
  54. 530 poke646,9:print"[214]orname: ";a$(0)
  55. 540 print"[206]ame   : ";a$(1)
  56. 550 poke646,3:print"[211]trasse: ";a$(2)
  57. 560 poke646,4:print"[207]rt    : ";a$(3)
  58. 570 poke646,10:print"[208]lz    :";a(0)
  59. 580 print"[212]el.   : ";a$(4)
  60. 590 ify=2theny=0:return
  61. 600 print"->> [212]aste fuer [205]enue <<-[146]"
  62. 610 gett$:ift$=""then610
  63. 620 ify=1theny=0:return
  64. 630 goto 40
  65. 640 print"[147]";spc(10);"[158][193]uf [215]iedersehen"
  66. 650 end
  67. 660 y=1:gosub510:goto40
  68. 670 y=2:gosub510:print#4:close4:goto40
  69. 680 input"[147][158][193]nrede";r$
  70. 690 f$=str$(a(0))
  71. 700 fori=1tolen(f$+a$(3)):p$=p$+"[184]":nexti
  72. 710 open4,4:cmd4
  73. 720 print r$
  74. 730 print
  75. 740 print a$(0);" ";a$(1)
  76. 750 print
  77. 760 print a$(2)
  78. 770 print
  79. 780 ifd$="j"thengosub850:goto810
  80. 790 print a(0);a$(3)
  81. 800 printp$
  82. 810 print#4:close4:p$="[184][184]":goto40
  83. 820 l=10:gosub400:l=0
  84. 830 open1,8,15,"s:"+b$(0)+" "+left$(b$(1),1)+"."
  85. 840 close1:goto40
  86. 850 print#4,chr$(27)"a"chr$(5);chr$(27)"-"chr$(1);
  87. 860 print#4," "a(0);a$(3)" "
  88. 870 print#4,chr$(27)"-"chr$(0):return
  89.